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3 Facility: rms32 

: Abstract: 

routine to perform sequential-specific 
connect processing. 


Environment: 
star processor running starlet exec. 


Modified By: 
v03-023 oer Stephen H. Zalewski, 


v03-022 JEJ0025 J E Johnson 
Ensure that GBH and GBD lengths are quad 


v03-021 $HZ0011 Stephen H. Zalewski, 
v03-020 $HZ0010 Stephen H. Zalewski 


v03-019 $HZ0009 Stephen H. Zalewski 


v03-018 SHZ0008 Stephen H. Zalewski 
with global buffer count of zero. 


v03-017 SHZ0007 Stephen H. Zalewski 
Implement cluster global buffers. 


v03-016 SHZ0006 Stephen H. Zalewski 
Disable global buffers. 


v03-015 SHZ0005 Stephen H. Zalewski 
buffer section. 


v03-014 KPL000 Peter Lieberwirth 
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54 
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59 
60 
°] 
8 
64 
65 
66 
67 
68 
69 
70 
g} 
48 
74 
75 1 
6 Fix v03-013 by reversing sense of branch. 
8 v03-13 rigt2 Stephen H. Zalewski 


This is only a temporary restriction. 
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v03-012 LJA00SS Laurie J. Anderson 
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Author: | f Laverdure, creation date: 5-JAN-1977 
we are creating a global buffer section, specify that 
we do an expand region to make sure it comes out of PO space. 
word aligned. 


Do not initialize TRC blocks when connectin 
buffers. This was accidently left on from 


Fix the tracing code to work with multi-threaded PAS. 
is accomplished by using the interlock queue instructions. 


Ss e 
Replace call to RMSINIT_SFSB with RMSINIT_ SF 


oir . 
SB_IRB. This is 
to allow us to successfully stali using the irab 


Bugcheck if we try to create a global buffers section 


1983 
Fix bug that caused a process to incorrectly map a global 


21-Feb-1983 
f XQP is being used, ignore any request for global buffers. 


B with the value which is used 


fe 
RM1CONN SEQUENTIAL AND COMMON CONNECT 16-SEP-1984 00:44:47 VAX/VMS Macro V04-00 P 
yo4+000 BreEe 1984 1or3h:47 FANS CRC IAAT COMM Maes 1 a * 
» v03-011 j thndh Keith 8. Thonpeon 30-Nov-1982 
§ ; Change ifb$Sw_devbufsiz to ifb$l_devbufsiz 
8 ; v03-010 $HZ0003 Stephen H. Zalewski, 14-Oct-1982 16:29 
0 : r the real-time device bit is ges in the device characteristics 
4 : field (this is also a patch in 
00 38 : v03-009 § Stephen H. Zalewski, 10-Sep-1982 16:43 
00 94 ; cases “anything and Peverthing to do with FRBs, SIFBs and SFDs 
099 32 ; because they no longer exist. 
$0 3 : VO3-008 KBT0341 Keith B. Thompson 16-Sep-1982 
4 a8 ; Don't allocate matiois gbsbs when multistreaming 
0000 100; v03-007 $HZ0001 Stephen H. Zalewski, | 1-Sep-1982 15:29 
0000 101; Rod fy so that global buffer section locking is now done 
464 19 3 via the lock manger and the GBSB. 
0000 104: v03-006 KBT0299 Keith B. Thompson 24-Aug-1982 
444 19? s Reorganize psects 
0000 4 ; v03-005 KDM0002 Kathleen D. Morse 28-Jun-1982 
0000 108 ; Added $PCBDEF. 
0000 109; 
0000 110 ;-- 
0000 111 


Aig + ong a $connect from occuring if there is no device buffer 


G 
~~ COMMON CONNECT i 


8 a et 


CONAWAY OC OD NAUMUE WIN 0 OD NAU EWN OOD NOE WIN "OOOO WW 


: 
4C 58 21 24 53 4D 52 SF 00" 0 


— em ee a ee ed ed ed dd dd ed dd dd dd dd dd dd 


Pe PUTT BS BBP LLL LEE 


o 


EP=1984 00:44:47 VAX/VMS Macro v04-00 » 
~oeer 1382 FB3SSi77 PARC VES Macro vOen OO age) 


| 
| 
.SBTTL DECLARATIONS | 
| 


: Include Files: 


; 
3; Macros: 


STRCDEF 

SWCBDEF 

> Equated Symbols: 
| 


ROP=RABSL_ROP*8 ; bit offset to rop 
: Own Storage: 


FAOCNTRL: 
ASCIC /_RMSS$!XL/ ; Control string to FAO for GS name. 


the standard rms status code is set into r0 and 
return is made to the user (not caller). 


if any errors, all irab-related internal structures 
are deallocated. 


: Side Effects: 

none 

: note: 

1 connected irab is allowed on a sequential file. 


onl 
this routine assumes that this is the first irab in 
ifab’s irab chain. 
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RMIC SCOUENT IAL AND COMMON CONNECT 1 mitts yi 90:64:47 AX/VMS Macro v04-00 Page 
v04 RMSCONNECT1 = SEQUENTIAL@SPECIFIC CONNEC 5-SEP-1984 16:23:11 CRMS.SRCJRM1CONN.MAR;1 
16 -SBTTL RMSCONNECT1 = SEQUENTIAL=-SPECIFIC CONNECT ROUTINE 
1 § 3++ 
164 ; RMSCONNECT 
9 165; 
, 198 , RMSCONNECT 
9 198 ; this routine performs the following functions required 
; , 133 ; for connecting to sequential files: 
009 171; 1. perform various validity checks 
93 176 3 ¢: if opened for block i/o allocate a lock bdb 
9 175; - allocate required bdb's and buffers and save count 
009 174; 
B83 Fe cau 
; Calling sequence: 
$09 133 : 
44 178 3 entered via case branch from rm$connect 
009 179; 
0009 180 ; Input Parameters: 
0009 181; 
0009 186 ; ap argument List addr 
0009 183; rii impure area addr 
009 184; r10 ifab addr 
009 185; r9 irab addr 
009 186; r8 rab addr 
9 187 ; 
009 188 ; Implicit Inputs: 
0009 189; 
0009 190; the contents of the rab and irab blocks 
0009 191; 
0009 135 3; Output Parameters: 
009 193; 
009 194; r0 status 
0009 195; 
0009 196 ; Implicit Outputs: 
0009 197 ; 
9 138 : sets various fields in the irab and ifab. 
009 | ; Completion Codes: 
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OC 22 AA 
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22 AA 
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03 50 
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22 AA 93 
6C 


Zz 


—r 
—_ 


BH EWAN nonsnonononononornen 


“aM YS S>NLEM YS POOrvom 


MMMM 2 2 2 SS BO 


 . 


COMMON CONNECT 19736-1388 90:44:67 ules Macro V04-00 Page 
SEQUENTIAL“SPECIFIC CONNEC 5=SEP-1984 16:23:11 (CRMS.SRCIRMICONN.MAR; 1 
9 RMSCONNECT1:: 
g : if open or eeete was done with bro specified (mixed block & record i/o), 
¢ : check the bio rop bit and if set switch to block i/o only 
$ BBC #F ABSV_BRO,- 
8 neous 1FB8B FAC(R10) ,8$ : branch if bro not set 
0 1FB$B_FAC(R10) : indicate not Limited to block i/o 
1 C #RABST_BIO+ROP,(R8),8$ ; branch if bio clear in rop 
¢ BISB2 #FABSM BI0,- 
lo 1FB$B_FAC(R10) ; switch to block i/o only 
5 : BBC #IFBSV_DAP, (R10), 20$ ; branch if network access 
§ JSB NTSCONNECT 3 do network connect 
BLES RO, 208 3 continue on success 
3 208 BRwW CLN1 3; cleanup on error 
‘-. - Oe #1FBSV_B10, IFBSB_FAC(R10),- 
1 CHKMBC : branch if not block i/o 
2 BRB ALLOC : go to alloc if block i/o 
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SEQUENTIAL AND COMMON CONNECT 19360-1385 90:34:47 AX/VMS Macro V04-00 Page 7 
RMSCONNECT1 = SEQUENTIAL=SPECIFIC CONNEC 5=-SEP-1984 16:23:11 (CRMS.SRCJRM1CONN.MAR; 1 (6) 
1 44 
1 45 ; 
! ‘3 ; error processing 
} 8 ; record format undefined and doing record i/o processing 
1 0 
1 1 ERRRFM: 
1 4 RMSCONN_ERRRFM: : 
1 2 ERR REM 
FFC7" 3 § 4 CLN1: ®B8SBW RMSCCLNI ; deallocate irab 
FFC4’ 31 p ; 56 BRW RMSEX_NOSTR ; and exit 
C 3 
O3C 38 ; disk buffer size not 512, device is realtime device, or device has a zero 
03¢ ; length device buffer. 
03C 60 ; 
03C 61 
03¢ 6¢ 
11. 0041 6 
004 64 
004 65 ; 
Boe 66 3 mbc negative. (reserved for later use) 
004 68 
004 9 ERRMBC: 
004 0 RMSERR MBC 
11 0048 71 BRB CLNI 
004A 72 


Re 
ve 


L883 


} 
Kk 7 
SEQUENTIAL AND COMMON CONNECT 16-SEP-1984 00:44:47 VAX/VMS Macro V04-00 Page 
RRSCONNECTI - SEQUENTIAL=SPECIFIC CONNEC eet 7 90:38:14 RMS. SRCIRM 1CONN. MAR; 1 . ay 
4A 74 -ENABL LSB 
ae | 
ze 7 3 allocate bdbs and i/o buffers of size = blocksize (* mbc, if disk) | 
GA ig pheses 
4A 0; \note: might be nice to change rm$aldbuf to do split-page 
Och ,,,¢dut not cross-page) allocations for unit record devices.\ | 
4A : ef eee 
O04A 4 
4A 5 CHKMBC: | 
55 48 AA 0 4A § MOVL IFBSL_DEVBUFSIZ(R10),R5 ; Length of buffer 
| 4 8 BEQL yy aoES : Cannot connect if no device buffer 
1D €0 005 HH: BBS #DEVS ; or device is realtime device. 
8 6A 05 8 1F BSI. VPRIM DEV(R10), ERRDEV 
54 1 pO 0054 90 MOVL #1 e 3 mt offset for default mbf 
OE €1 0057 291 BBC #DEVS 
48 1 60 TH 35 nes trast prin: “DEV(RI0), UNIT; branch if not disk or mt 
47 6A 005D 94 tie sig DEV(R10) UNIT; ae if mounted foreign 
6A 1C €1 OO5SF 295 BBC 0_RND>IFBSL_PRIM_DEV(R10), 
3A ane > 3 y eet if not disk 
006 98 ; 
Ope + : check that assumptions regarding disk buffer size are accurate 
Bne oe : otherwise some of sequential get code won't work 
06 03° 
0200 8F 55 B11 006 04 CMPW Be .oai2 
D2 12 sse4 Re BNEQ ERRDEV ; it's all over if not that magic number! 
dO¢a 0 3 
BOCA 4 3; this is a connect for a disk file. 
006A 10 : process the mbc (multi-block count) field of the rab to determine 
pen 12 3 the size of the buffers to be allocated. 
006A 313° 
54 D4 O06A 14 CLRL R4 ; disk offset for default mbf 
50 37 AB §=98 006C 15 CVTBL RABSB_MBC(RB),RO 3; get mbc 
6A 2— €1 00 g 16 BBC #1FBS0_PPF_INPUT, (R10) ,- 
3 7 1 1 ig 3; branch if not sysSinput 
02 D1 74 18 CMPL RO,#2 3 mbc at least 2? 
1A 77 «31 BGEQU§ 130$ > branch if yes 
50 0 D 79 0 MOVL #2,R0 3 set mbc=2 for sys$input 
mat 7C 1120$: BNEG 1368 i branch if speced | 
50 00000000°9F 9 fi § CVTIBL @#PI1O$GB_DFMBC,RO 3; else get. process default 
2 BNEQ 3; branc speced | 
50 00000000°9F 9 4 CVTBL OLR 1 SS6S_DFRBC RO 3 else get system default 
eS 0 5 BNEQ 1308 3 branc spece 
A 6 § MOVL #1,R0 ; else use a single block 
Ag 1 9 130$:  BLSS ERRMBC 3; error if mbc negative 
55 a9 20 8 9 3 SUBB #1,R0, IRBSB_MBC (RI) ; store adjusted mbc value 
0 A4 9A MULW 3; get total size of buffer 
0071 30 0090 0 ALLOC: BSBW RM$BDBALLOC > go allocate the buffers | 
| 
| 


SSEP=1986 20:23:11 ERMSVSRCRMTCONN-MAR: 1 


$ 
58 A 0$:  BLBS SETNXT 3; continue on success 
. a. A BRW Rages _NOSTR : exit on error. error in 
A ; rm$bdballoc returns everything 
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buffer allocation for unit record and foreign mounted devices 
allocate a single buffer only 
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56 } 4 UNIT: MOVL #1,R6 ; get just one buffer/bdb 
2 é¢€ BBC #OEVSV_TRM,- 
C 6A re L_PRIM_DEV(R10),160$; go allocate if not term 
55 0200 8F 861 CMPW #512,R5 ; buffer size at least 512 
> 0B BLEQU 199 3: yes, uge it 
55 o20p F 4 B4 MOVW #512,R5 3; use 512 bytes as minimum 
Ong B9 160$: ®BSBW § RMSBOBALLOC_ALT : go allocate the buffer 
E 11. 00BC BRB 150$ 3 do error check 
OBE -DSABL LSB 


: perform remaining stream setup 
3c AD = 54 —SiC«éiD SETNXT: MOVL R4, IRBSL_NXTBDB(R9) 3; set next bdb for seqxfr 


position file for stream at beginning of file 
unless eof bit set in ifab or rop 


SSSI DE DS DDD DODDS DTT EB BS BS BB III 
MEW (OOO NAUS WN 9 ODNAUE WN OOO NOAOUE WN" OUOOnouw 


E 
E 
E 
E 
OC 
oc 
0c 
CC 
: 
oc BBS #DEVSV_FOR,- 
0C4 IFBSL_PRIM_DEV(R10),65$ ; Leave positioned at blk 0; 
0C6 ; if non-file structured 
40 D6 00C6 INCL IRBS$L_NRP_VBN(R9) 3; assume at beginning of file 
04 6A 21 €0 00C9 BBS #1FBSU_EOF, (R10) ,20$ ; branch if position to eof flag set 
0A 68 28 €1 aco BBC #RABSV—EOF +ROP, (RB) , 308 ; branch if eof not set in rop either 
0D1 H 
opt 3 copy the eof position to the next record pointer context 
0D1 ‘ 
40 A9 74 AA DO 00D1 20$: MOVL IFBSL_EBK(R10), IRB$L_NRP_VBN(R9); these better be zero 
4409 5C B0 poe MOVW IFBSW_FFB(R10), IRBSW_NRP_OFF(R9); for unit record devices 
0DB 3 
ee f 3; check for positioned at or past eof unless unit record 
OB 18 : 
0DB $0 30$: 
DB 1 ASSUME DEVSV_REC EQ 0 
14 6A E8 DB Hf BLBS IFBSL_PRIM_DEV(R10),50$ ; branch if unit record 
40 Ad —*OD1 43 CMPL IRBSL_NRP_JBN(RY) ,- 
4 AA E 84 {FBSL_EBKTRIO) ; arp past eof? 
6p 1F ee 5 BLSSU 0$ 3 branch if not 
1A Of § BGTRU 40$ ; branch if definite yes 
E7 H 
E7 83 3; orp vbn = eof vbn ; 
7! s' 3 must check byte in block to determine if at eof 


RM1CONN SEQUENTIAL AND COMMON CONNECT 16-SEP-1984 00:44:47 YAX/VMS Macro v04-00 Page 
v04-000 RMSCONNECT1 = SEQUENTIAL-SPECIFIC CONNEC $e 1386 98:39:14 YAMS SRCJRM1 CONN MAR: 1 ’ 
E7 9 
£7 38 CMPW RBSW_NRP_OFF(R9) , IFBSW_FFB(R10) 
EC 94 BLSSU 0$ 3; branch if nrp < eof 
E 95 ops: SSB #IRBSV_EOF ,(R9) 3; set the eof fla 
OF 36 50$: CMPB 1RBSB_BCNT(R9) .#1 ; just 1 buffer allocated? 
F 9 BLEQU 0 ; branch if yes 
OF 38 SSB #IRBSV_RAHWBH, (R9) 3; enable read ahead & write behind 
OFC 99 60$ BRW RMSEXSOC 3 exit with success 
OFF 400 
OFF tt 3 
Ort 408 ; maintains eof context on foreign devices 
FF 404 * 
OFF th? 65$: BBC #DEVS$V_SGD, IFBSL_PRIM_DEV(R10) ,60$; branch if not magtape 
103 4 $ BBC #IFBSV_EOF ,(R10),60$ ; if not at eof, no problem 
0107 40 SSB #1RBSVIEOF , (RI) : set irab eof bit 
0108 408 R 60$ 3 return to mainline 
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subroutine to allocate bdbs and buffers. code to lock buffers in working 

set remains no-op'd at time of release 2. it is felt at this time that 

locking buffers in the working set when the multi-buffer count is positive | 

will probably cause problems with existing programs because in fact, rms 

has not been locking them at all. if this is implemented in a future 

release, the cleanest technique would seem to be the addition of yet 

another (sigh...) rop bit in the rab as input to the $connect operation 

to specifically request rms to lock the buffers. the current behavior 

of using absolute value of the mbf field or default counts will continue. | 
| 


if this is for magtape with truncate access, only 1 buffer is allocated 
entry at rm$bdballoc_alt is used when buffer size is already specified in 
r6. see additional comments there. 
inputs: 
rij impure area address 
ri0 ifab address 
r 
r8 rab address 
r5 size of buffers to allocate, in bytes. 
r4 index for defaults, values as follows: 
sequential disk file default 
magtape default 
unit record default 
relative file default 
indexed file default 
hashed file default 


| 
| 
} 
rab$b_mbf explicit # of buffers | 
| 
| 
| 
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outputs: 
r0 status code 
ri-r6 destroyed 
r address of last bdb allocated 
irb$b_bcnt # of buffers allocated - updated only if r9 nonzero. 


allocation failure when called from connect (r9 nonzero) will 
return all allocated buffers, bdb’s, bcb's, and the irab. 


BLKALL: CLRQ 
RMSBDBALLOC: : 
BBS 


R5 ; this will get lock bdb only 
RMSBDBALLOC_ALT ; extended branch 


#1FBSV_B1O,1FBSB_FAC(R10),- 
A ; block i/o then just do bdb 

CVTBL RABSB_MBF (RB) ,R6 3; get number of buffers 

NEQ $ : branch if specified 

CVTBL @#PIOSGB_DFMBFSDKCR4],R6; else, pick up process default 


55 
4D 11 
22 AA 08 EO 
56 36 AB 98 
wits 
56  00000000'°9F44 98 
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EQUENTIAL C S 13 | 
| V0G=- MSCONNECT1 = SEQUENTIAL=SPECIFIC CONNEC 5=SEP-1984 11 CRMS.SRCJRM1CONN.MAR; 1 (10) | 
15 12 9124 467 BNEQ 108 ; branch if specified 
| 56 Q00000000'9F44 9 126 468 CVTIBL @#SYS$GB_DFMBFSDKCR4],R6; else, pick “4 system default 
0B 1 1 ri 14 BN : branch if spec) tied 
56 01 OD } ot9 MOVL #1,R6 ; else use 1 buffer 
1 472; 
a c78 : if read ahead or write behind spec'd, then need two buffers 
: 
01 475 
01 2¢8 ASSUME <<RABSM_RAH!RABSM_WBH>&*XFFFFOOFF> EQ 0 
05 a8 06 B3 01 47 BITW  #<RABS$M~RAH! RABSM_WBH>@-8 , RABSB_ROP1 (RB) 
6} : 138 ; either rab or wbh spec'd? 
02 13 0137 450 BEQL 10$ z eql don't want rah/wbh 
96 «606 60139 = 481 INCL =_ R6 ; need min two buffs 
38 D5 4 B re {| 10$: TSTL R6 | 
0 14 130 48 BGTR 20$ ; if pos, then ok 
56 56 CE Siz eee 208 MNEGL R6,R6 : otherwise make it positive | 
5C AD = 569 $143 486 MOVB R6, IRB$B_MBF (R9) ; Save MBF value used 
07 6A 36 €1 0146 487 BBC #IFBSV_TEF, (R10) ,40$ ; branch if no truncate access 
05 —1 Q14A 488 BBC #DEV$V_SQD,- 
03 6A 014C 489 IFBSL_PRIM_DEV(R10),40$ ; branch if not magtape 
56 01 DO O14E 490 MOVL #1,R6 ; allocate 1 buffer 
0151 491 40$: 
0151 $36 
0151 493 ; | 
0151 494 ; since we can't get good indexed defaults any other way 
0151 495; alter r6 here. indexed files require at least 2 bdb'’s and buffer's 
0151 496; so if absolute value of r6é is 1, then need to change it 
0151 497; 
0151 498 
54 04 D1 0151 499 CMPL #4 RS : see if indexed 
08 12 0154 500 BNEQ 808 : if not branch 
02 56 D1 0156 501 CMPL R6 #2 ; at least 2 buffers spec'd? 
03 1€ 0159 502 BGEGU 808 ; ok if greater than or equal 
56 02 od0 0158 503 OVL #2,R6 3; use 2 otherwise 
015E 504 80$: 
0O15E 505 
O1SE 506 ; : : 
Bie a4 3 alternate entry point for number of buffers already specified in r6. 
015E 509; if r9 is zero, then irb$b_bcnt is not filled in. this entry point is 
Bi ze 219 3; for unit record and foreign devices to allocate a single buffer not 
15E 11; using the mbf or defaults. extend and display will use this to allocate 
BIE 21¢ : buffers when no streams are connected (relative or isam only). | 
156 514 : inputs: | 
15E a2 : 
15E 1 3 r6 number of buffers to 
se 86Sif § allocate. 0 causes only one buffer to - 
15E 18 ; be allocate and pypesees potential allocation 
Bite ? : of lock bdb for relative and isam orgs. 
O15 1g ifb$v_wrtacc if set, then allocate a lock bdb also for 
Bize : § : relative and isam files if low word r6 non zero 
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15E 4; ifb$l_sfsb_ptr if non-zero, file is shared and a bcb is 
: ; 5; allocated for each bdb. 
; 
! : § 3; outputs: 
a ; : 3 bdb's are Linked into the end of the ifab bdb List. 
O13 a: 
15E § RMSBDBALLOC_ALT:: 
43 D4 «015 2 cLRC =(SP) init buffer counter 
04 22 AA 0 E1 016 4 BBC #IFBSV_BIO, IFB$B_FAC (R16), AGAIN ; 8r if not block i/o. 
8188 2 5 neat SSB #IFBSV“NORECLK, (R10) $ Make sure noreclk is set for bio. | 
6 06 0169 «5 5 INCL (SP) ; count the buffer 
FE92" 30 She 538 BSBW RMS A “i. ; ew y the but fer | 
23 : E9 195 273 BLBC RO,D t out on err 
06 6A 34 0171 40 BBS aleBsy RORECLK, (R10), 1s"; branch / ae “ recore locking. 
FE88' 30 0175 541 BSBW ALBIB ; alt locate a BLB. 
2— 50 €9 0178 246 BLBC RO GIVEBACK ; Gran if error on getting bcb 
55 D5 0178 543 10$: TSTL R5 ; was buffer allocated? 
04 13 0170 544 BEQL 20$ ; EQL then not, so don't count it. 
0084 CA B66 O17F 545 INCW IFBSW_AVLCL(R10) ; note buffer allocated. 
E356 F5 0183 546 208: SOBGTR R6,AGAIN ; decrement counter, go again 
0186 547 ; if still positive 
Oc 19 0186 548 BLSS DECR_BCNT ; this was last pass to alloc 
0188 549 ; just lock bdb so decr bent 
0188 550 ; so it only counts buffers 
0188 551 
0188 22¢ i ; | 
0188 55 ; At this point the required number of buffers and bdbs, and blbs (if shared) 
bise eee : ; have been allocated. Allocate a lock blb if record locking is being done. 
0188 556° 
OA 6A 33 3 0188 557 BBS #IFBSV_NORECLK,(R10),EXIT ; done if no locking. 
FE71" 30 018C 558 BSBW RMSALBCB ; Allocate a lock BLB. 
2450 €8 O18F 559 BLBS RO, CHKGBL ; Check out global buffers. 
02 11 #0192 560 HRB EXIT : Exit on error from alblb. 
0194 561 DECR_BCNT: 
0194 266 
0194 563; 
0194 564 ; come here on error and 
0194 26 ; last pass to get count right 
0194 96 : 
B13 28 
6E D7 0194 68 DECL (SP) 3 
0196 569 EXIT: 
02 BA 0196 570 POPR #*M<R1> 3 get buffer count off stack 
59 D5 0198 571 TSTL Ry 3 1s there an irab? 
07 13 O19A 276 BEQL 10$ 3 no, then don't update bent 
19C 7 3 and exit (caller checks error) 
54 A9 51 90 019 74 MOVB Eh - [RGSS Beet eave ; store count of buffers 
0150 €9 OIA 75 BLBC RO,20$ ; error on allocation 
nia 278 :; clean up buffers allocated 
1A ? ; and get rid of irab 
Bia 4: 3; ©9 nonzero means rthis was 
1A 7 ; called on a connect 
05 QA 80 10$: RSB 3 and exit routine | 
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RMSCONNECT1 = SEQUENTIAL=SPECIFIC CONNEC 5=SEP=1984 16:23:11 (CRMS.SRCIRMICONN.MAR; 1 
1 208: PUSHL RO 3; save status 
¢ BRw RMSCOMCLNUP i and branch to cleanup 
4; 
5 ; we couldn't get a blb for some reason (e.g., not enough space left). 
§ ; therefore, we must return the bdb we just got. 
8 e 
9 GIVEBACK: 
90 PUSHL RO 3; save status code 
91 MOVL IFBSL_BDB_BLNK(R10),R4 ; get back Link because 
35 ; aldbuf calls albdb which 
9 ; Links them at end of List 
94 BSBW RMSRETBDB ; deallocates bdb ar4 
95 POPR #*M<RO> 3; restore status code 
39 BRB DECR_BCNT 3; fix count and exit 
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v04-000 RMSCONNECT1 = SEQUENTIAL-SPECIFIC CONNEC ae ioets 1 eet eee YRMS  SRCIRMT CONN. MAR: 1 ° dd 
186 599 | 
1B on0 3 
4 ° 1 ; Code to allocate global buffers if desired, and initialize if necessary. 
ibe 808 | 
186 604 CHKGBL: 
78 AA DS 188 oR2 TSTL IFBSL_SFSB_PTR(R10) i; If. file is not being shared 
13 018 6 $ BEQL EXIT 3 then don't bother with global buffers 
0088 CA be 1BB 60 TSTL IFBSL_GBH_PTR(R10) ; If. we already have global buffers 
03 13 O1BF 608 BEQL 1$ ; _then multi-streaming. 
OOAS 31 O1C1 609 BRi MAP_IT 3; Go map the section. 
Bice 610 1$ ASSUME IMP$V_IIOS EQ 0 
F 6B €9 O1C4 611 BLBC (R11), EXIT ; Just use local if this is ppf. 
CB 68 92 EO 01¢7 ol¢ BBS #IMPSV_NOPOBUFS, (R11) ,EXIT 3 Use local if PO off Limits. 
9 D5 O1CB 61 TSTL Rg :; Is irab present? 
C7 «613 «©O1CD) 614 BEQL EXIT ; No, then just use local. 
56 3C A8 4 O1CF 615 MOVL RABSL_FAB(R8), R6 ; Get address of FAB. 
56 48 A6 01D3 616 CVTWL 4 FABSW_GBC(R6), R6 ; Get gbl buffer count. 
BD 13 0107 617 BEQL EXIT 3: None desired, so exit. 
FE26" 30 0109 618 BSBW RMSINIT_GBSB + Allocate GBSB and get EX lock. 
8750 €9 O1DC 619 BLBC RO,EXIT 3: Exit if lock failed. 
54 7C AA DO ODF 620 MOVL IFBSL_GBSB PTR(R10),R4 ; Get address of GBSB from IFB. 
52 38 AS DO O1E3 621 MOVL GBSBSC_GS_SIZE(R4),R2 ; Are global buffers already in use? 
54 13 O1F7 6 ¢ BEQL CHK_GBC 3: No, branch to validate GBC. 
007D = 31 pie? ? ? BRwW MAP_IT ; Yes, go use them. 
54 0O09C CA 8 Q1EC 625 ERLO: MOVL IFB$L_BLBBLNK(R10), R4 ; Get addr of BLB. 
FEOC’ 0 O1F1 626 BSBW RMSRETBLB ; Return it. 
54 O009C CA DO O1F4 627 ERL1: MOVL IFB$L_BLBBLNK(R10), R4 ; Get BLB addr. 
FEQ4* 30 O1F9 628 BSBW RMSRETBL 3; Give back. 
54 46 AA ? O1FC 629 ERL4: MOVL IFB$L_BDB_BLNK(R10), R4 ; Get address of GBPB just alloc'd. 
FDFD* 0 O505 630 BSBW RMSR ; Give it back. i 
54 44 AA D0 020 631 ERL3: MOVL IFB$L_BDB_BLNK(R10), R4 ; Get address of GBPB just alloc'd. 
FDF6" 30 Ta O36 BSBW RMSR : Give it back. 
54 009C CA 0 QO20A 633 ERL2: MOVL IFBSL_BLBBLNK(R10), R4& ; Get addr of a BLB (lock BLB). 
FDEE’ 0 O20F 634 BSBW RMSRETBLB ; Give it back. 
FDEB’ 30 oste 635 BSBW RMSRLS_GBSB 3: Dequeue the lock we had on the GBSB 
oI * 021 636 POPR #*M<ROS ; Restore error code. 
FF7C 1 0217 637 BRW EXIT :; Go finish up. 
021A 638 
bs iA 639 ALBLBERR: 
SE 08 CO 1A 640 ADDL2 #8, SP 3; Clean off stack. 
50 DD 021D 641 PUSHL RO ; Save error code. 
D3 «611+» «=OO2TF obs BRB ERL1 ; Br and finish up. 
8 1 6435 ALBLBERR1: 
5E 08 0 1 644 ADDL2 #8, SP : Clean off stack. 
50 DD 0224 645 PUSHL RO 3; Save error code. 
D6 ssd11 228 ERL4 ; Br and finish up. 
647 ALGBPERR: 
5E 98 co 968 ADDL2 #8, SP 3; Clean off stack. 
0 oD B 64 PUSHL ; Save error code. 
DbBé«dm?’Y D 650 BRB ERL2 : Br to give back lock BLB. 
F 651 ALGBPERR}: | 
5E 98 co F 636 ADDL2 #8, SP ; Clean off stack. 
DD . . Oe PUSHL 0 ; Save error code. 
cD Oo § 4 654 BR ERL3 ; Br to give back one gbpb. 
6 655 BAD_GBC: | 
| 
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6 $36 RMSERR GBC,-(SP) 3 Note error. If 
cD 11 : 63 BRB ERL2 : Give back lock BLB. i 
D $89 ASSUME <<GBHS$C_BLN/8>*8> EQ GBHSC_BLN ; Check for quadword alignment If 
4 969 ASSUME <<GBDSC"BLN/8>*8> EQ GBDSC"BLN ; in GBD and GBH sections i 
D 606 CHK_GBC: If 
52 56 00 D 66 MOVL R6, R2 ¢ Save number of buffers desired. If 
| 40 664 BLSS_ BAO_GBC ; Only positive values al/owed. IF 
a a7» 4 665 MULL 5, Re, R1 ; Total buffer bytes into R1. Mi 
5 8 C4 4 096 MULL #GBD$ BLN, R2 ; R2 is _now descriptor bytes. NI 
3 1 ¢O 49 66 ADDL R1, R : Sum of desc and buffers. NU 
52 00000058 BF CO 46 668 ADDL #GBHSC BLN, R2 : Plus size of header area. PC 
5 OOOOOIFF BF CO 5 669 ADDL #511,R ; Round up to even pages. P| 
< Apeipnantsi’ 56 +1 6 at io BR map fs Noop to branch to ADDTRC f i Py 
; Noop to branch to or tracing. 
00000004'EF 17 0263 ore JMP ADDTRC 3 7 . 
8 69 673 MAP_IT: 
14 8 69 674 PUSHR #*M<R2,R4> 3; Save registers needed after algbpb. 
FD92" 0 0268 675 BSBW RMSALGBPB : Get Global Buffer Pointer Block. 
B7 5 ge O26E 676 BLBC RO, ALGBPERR 3; Branch on error. 
FO8C’ 30 0271 £677 BSBW ALGBP 3; Get Global Buffer Pointer Block. 
B8 50 9 0274 678 BLBC RO, ALGBPERR1 3; Branch on error. 
FD86' 0 0277 #4679 BSBW RMSALBLB ; Get a BLB. 
A4 50 9 027A 680 BLBC RO, ALBLBERR1 ; Branch on error. 
FD80° 0 0270 681 BSBW RMSALBLB ; Get a BLB. 
97 50 €9 0280 one BLBC RO, ALBLBERR :; Exit on error. 
14 BA 0283 68 POPR #*M<R2,R4> ; Restore registers. 
0088 CA D5 0285 684 TSTL IFBSL_GBH_PTR(R10) 3; Already have gbl buffs? 
07 13 0289 685 BEQL 1$ ; No, then go on to map it. 
osee 686 SSB #IRBSV_GBLBUFF, (R9) ; Note irab has extra gbpb, blb. 
FFOS 31 O28F 687 BRW EXIT ; Branch to exit. 
029 688 
029 689 ; 
O59 oa0 ; R2 = Number of bytes to allocate (rounded up to full pages) 
0292 692 ° 
7E 7C 029 693 1$: CLRQ -(SP) ; Zero INADR torces PO space to be allocated 
7E 7C 0294 694 CLRQ -(SP) ; Reserve space for RETADR. 
0296 695 
0296 696 ; : 
0296 697 ; The section name will be the ascii text '_RMS$' followed by the 
0 ae 843 : FCB address in hexadecimal. 
9 00 ° 
ie, meee 9 44 SUBL2 #16, SP ; Make room for gsd name. 
6E DF 0299 7 : PUSHAL (SPS : Addr part of descriptor. 
D oD 98 4 PUSHL #13 ; Length of GSD name. 
ggoc F 6B 9D 704 PUSHR #*M<R2,R3,R9> 3; Save these around GETCCB call. 
A °° Al 705 MOVL R10 3: Need ifab in r9. 
FD59° af ° BSBW =—s- RMSGETCC : Get CCB addr into R1. 
O20C 8F BA A? 67 POPR #*M<R2 ; Restore registers. 
51 04 Al 0 ABO? : MOVL  CCBSL_WIND(R1), R1 : Get ptr to window. 
51 18 Al OD AF 7 VL WCBSL_FCB(R1), R ; Get FCB addr into Ri. 
FO4A CF DF 0283 710 PUSHAL FAOCNTRL+ ie : 
7E FD45 gF A 8 711 MOVZBL FAOCNTRL, -(SP) ; Build descriptor for control string. 
50 E 00 BC 712 MOVL SP, RO 3; Need to pass addr of desc. 
| 
| 
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BF 713 SFAO_S A dy ; Address of control string descriptor 
BF 714 OuT a F=8(ROS,- ; Addr of output buffer descriptor. 
BF 715 ; FCB addr to show up in output string. 
6—€ 7C¢ CF rig CLRQ (SP) : Clear priv mask. 
DI 71 a #PRVSV_SYSGBL, (SP) ; Need sysgbl privilege. 
51 SE 00 D os ; Save this stack address. 
p £19 SSE TPRV 5 S AENBELG=#T. - : Turn on sysgbl for crmpsc. 
R= co 
4 1 PRYPRVECRID ; Get previous state. 
51 08 ag DE cr i= Fy : MOVAL ee R1 ; Address of gsd name desc. 
= 9C EB 724 ROTL Rg :; Get page count into r0. 
EF 725 SCRMPSC_S Tape’ = 32(R1),- ; Point to array on stack. 
O2EF 7 § RETADR = 24(R1),- ; Point to array on stack. 
O2EF 7 GSDNAM = (R1),- Fi 
EF 728 fey Aad = RO,- ; pase of * pegs te in section. 
EF 729 #PSLS$C_EXE EXEC. 
FF , FLAGS = *SeCSA _GBL!SECSA me sySGaL !Secene *oaT SECSM: D2RO!SECSM_ PAGFIL!SECSM_EXPR 
1D 6E 19 0 0 13 7 ¢ BBS #PRVSV_SYSGBL, (SP), 5$ ; If already had sysgbl, skip turnoff. 
6E C Q31 73 CLRQ : Init priv mask. 
0319 734 SSB #PRVSV_SYSGBL, (SP) : Turn off sysgbl. 
51 3 DO 031D 735 MOVL SP, R1 ; Address of priv mask. 
5 DD 0320 736 PUSHL RO : Save status from crmpsc. 
0322 ed SSETPRVS PRVADR=(R1) ; Turn off sysgbl. 
50 8—ED0 b3 } eas 5s POPL RO ; Restore crmpsc status. 
SE 8 CO 0334 740 ADDL2 #32, SP : Clean priv mask+name desc +name. 
06 50 8 0337 741 BLBS RO, 20¢ : Continue if Ok. 
OOED 1 b3 A rg W SEC_ERR ; Branch to error code. 
00E3 1 Baz8 Se 198: BRW SEC_ERR ; Branch to error code. 
51 04 AE 6€ (C3 Beg 745 SUBL3 (SP), 4(SP), R1 ; Get size allocated - 1. 
51 D6 034 746 INCL R1 3; Size allocated. 
5 tO} Osea pee gweo | 0s 4a" 9 wey 
; Br 
53. 6E 06 4C 749 MOVL (SP) ,R3 ; Move starting address of section into R3. 
50 0619 8F Bi Q34F 750 CMPW = #SSS_CREATED, RO ; vee the section just created? 
0B «13 54 751 BEQL 30 The . noses to be initialized. 
08 A3 1611 - 61 56 P36 CMPW #<GBHSC_BID+<GBHSC _BLN/4A8>>, "caHsBsS BID(R3) ; Seem legit? 
12 7... is BNEQ 0$ ; NEQ there’s an error. 
0087 31 5E 754 BRwW STORE_PTR : Else use it. 
0561 735 
Py j 
§ 61 73 3 Jotetot ize newly created section. 
8 61 758; = start address of sectio 
61 759; = size of section in Stes 
} 169 : Ré = number of buffers in section. 
61 762° 
61 768 30$: MNEGL + GBHSL_HI_VBN(R3) Store hi vbn for scan end check. | 
65 764 MOVL i GBSBKC “C5 GS"S1ZE(R3) Store size of section in section. 
69 765 MOVL enacts ) i Store size of section in GBSB. | 
90 166 MOVW at (R4) ber of buffers in section. 
1 76 MOV aah C ttl aunsaaesse BID(R3) ; Store id, bln. | 
77 768 MOVZWL #GBHS$C BLN Offs a. x # rst gab f from GBH. 
7 76 MOVL RO, GBASL Néap “BLNK(R3) : ou Link to GBD's. 
| 
| 
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50$: 


; If tracing is 


BRB 
STORE _PTR: 


20$: CMPL 


30$: MOVL 


16-SEP-1984 00 
ety 8 
RO, GBHSL_GBD_START(R3) ; 
RO. GBHSL-GBD-NEXT (RS) 
#8, GBHSL-SCAR_NUM(R3) 
#8. R6 
4 
R 


Re. GBHSL_SCAN_NUM(R3) 
#GB0$ 


» RO 
R6 
cBisL GBD FLNK EQ 0 
3) 
tad)” ht, _GBD_END(R3) 
GBDSL FLINK FQ 0 
#GBD$t_B 


#68 Bps¢ C"BEN, 
D$B BLN EQ < 


R6 
ne BtNSGBNSC _BLN+511 


(RO) of 
cBDSL L BLINK ROD 
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Save offset to first GBD. 

First GBD is first 7 tin. 

Assume scan size of 

Have at least 8 buffers? 


LEQU just use 
Else only use # in section. 


Num 
Offse to last GBD from first. 
3; End of GBD's + page-1 byte. 
Round off to even ope 
Start address of GBD's 
Addr of last GBD. 


; Forw Link points to last GBD. 
3; Offset to last G 


fs et to next GBD. 
Offset to last GBD. 


BID + 1> 
#<GBDSC Bibs <oB08¢ BLN/4a8>> Ayo my BID(RO) ; Id and bln. 
#1, G (R nh Init VBN fo -1. 


+ GBDSW_ i ZE(RO) 
» GBDSL-REL_ADDR(RO) 


: 
R6, #GBDSC_BLN, A 50$ 


GBHSL _GBD_FLNK 
(R3), GBDSL LBLINK (RO) 


GBHS$L_GBD_BLNK{R3),- 


3 are buffer size. 

3; Store offset to buffer. 

3; Point to next buffer. 

3 Loop until past last GBD. 


; Last GBD's back Link i 
s gqpes'te of header's tore Link. 
t GBD's forw Link is 


GBHS$C~BLNFGBDS$L FP) ecensh | : aeaentan of header's back Link. 


to be enabled, noop the 


STORE PTR 
INIT_TRC 


i, USECNT(R3) 
IFB$L_GBH_PTR(R10) 


BBs 
#IRBSV_GBLBUFF, (R9) 
#1 BSL USECNT(R3) 


IFBSL_PAR Lock 2 nia 
GBHSL “LOCK I 

RMSL COOER SsLoc 

ry? eg GBS DOCK 
IFBSL_SFSB BTRCRIO), R4 
ANSINTT_§ FSB_ 


EO SL _LOCK_ID(R3) 
IFBSL~PAR COCK 1D(R10) 
RMSLOGER_GBS_LOCK 


following branch. 


To make it easy to patch in tracing. 
To init tracing blocks. 


; ‘Pop’ INADR, RETADR arrays off stack. 
; Increment accessor count for section. 
; Point to the section. 


; b. 
; Note this irab has extra gbpb, blb. 
; Are we first accessor? 
; No, branch to release lock 
Save file lock id in globai section. 


; Turn file lock into system lock. 
; Lower lock on global buffer section. 


; Put address of SFSB in R4 for INIT_SFSB. 
; Get a file lock for process using IRB to s 


; Move the parent lock id for bucket 


locks into ifab from global buffer header 


: Continue. 


; Do lock mode conversion. 
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RMIC SEQUENT 
v04=000 RMSCONN 


a 


EQUENTIAL=SPECIFIC CONNEC RMS.SRCJRM1CONN.MAR; 1 
BRW EXIT 3; Continue. 


; An error has been detected. Disassociate from section, return structures 
; already allocated. 


50 00018404 8&F #RMSS_DME, RO : Give DME error if not all mapped. 


-"" $SUME FABSL STV EQ R $.. STV 


0c 50 be 0 JOVL gy RABSt STV(R8) 3; Save error code. 
D KOVG Ros 3 Get RETADR off stack into r0 and ri. 
5E co ADDL2 # hs ; Pop INADR off stack. 
RMSERR CRMP, -(SP) ; Note error. 
FBC4" 3 BSBW BASUNAAP _GBL_ALT ; Delete the whole VA. 
FDAD 1 BRw ERL 3; Branch to finish up. 
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4, 3F 4 SNEWPSECT RMSTRACE 
00000190 00 ? i NUMTRC: .LONG 400 ; Number of trace blocks to allocate. 
& 49 ; 
2 50 ; Add in extra bytes for trace blocks after size of section is determined. 
4 Be 
4 53 ADDTRC: 
50 F9 AF 09 4 54 MOVL NUMTRC, RO 3; Get number of trace blocks desired. 
3 1 008 55 BNEQ 10$ : Branch if non-zero. 
D6 OO0A 2$ INCL R ; Get at least one. 
28 atti os F C4 896 57 10$ MULL #TRCSC BLN. RO 3; Get size of trace blocks. 
0 1fFF BF CO 1 28 ADDL #511, R ; Add in almost a page. 
50 yg F AA OO1A 5 BICW #511, RO ; Round to even page's worth. 
§ 0 £9 O1F 60 ADOL RO, R2 3; Add in to size being requested. 
00000269'EF 1 a8 Bee JMP MAP_IT : And return to mainline. 
0 65; 
4 568 ; Initialize the trace blocks and pointer from the global buffer header. 
00 508 3; R3 = pointer to GBH 
00 867 ; RS - buffer size 
00 508 3 
00 38 
00 870 INIT_TRC: 
00 871 ASSUME GBHSL _GBD_FLNK EQ 0 
» Ff & -. a6 ADOL (R3), R3, RO ; Get address of last GBD in List. 
50 55 1C AO Ci 002C 87 ADDL3 GBDSL_REL_ADDR(RO), RS, RO; RO now first byte after last buff. 
20 ass 50 20 C3 0031 87% SUBL3 #GBHSC_TRC_FLNK, RO, GBHSL_TRC_FLNK(R3) ; Offset to Ist trc blk 
50 CO 0036 875 ADDL R35, R . now addr of first trace block. 
51 53 10A3 (C1 9039 876 ADDL3 GBHSL_GS_SIZE(R3), R3, RI; Get addr of end of gbl sec. 
51 00000040 BF (C2 ates are one SUBL #TRCSC_BCN, R1 3; Limit for last trace Block. 
0045 599 ASSUME <TRCSC_BLN & 7> EQ 0 ; These will Line up on quad boundary. 
0045 880 ASSUME i438 F 
80 00000040 8F 00 0045 £881 MOVL #TRC$C_BLN, (RO)+ 3; Fwd offset to next block. 
poe ¢ ASSUME TRCSL_BLNK EQ 
80 00000040 8F CE 004 EGL #TRCS$C_BLN, (RO)+ ; Back offset to last block. 
005 4 ASSUME TRC$B_B1D £a 8 
05 885 ASSUME TRC$B_BLN EQ <TRC$B_BID + 1> 
80 1012 gf BO 005 86 MOVW #<TRCSC B1ID+<TRC$C_6 N/4a8>>, (RO)+ ; Store id and bln. 
FFE7 50 = 36 1 #F1 th tf ACBL Ri, #TROSC_BLN-10,°RO, 108 ; Keep going until past Limit. 
50 qooogne ef C 3 34 SUBL #TRCSC_BLN, RO ; Back up to last trace block. 
51 > ve 6 0 SUBL ; ° is otrees to last trc blk. 
24 AS 51 2 C 69 91 SUBL #GBHSL TRC_FLNK, R1 GBHSL TRC_BLNK(R3) ; Back Link in header. 
60° 24A3 CE $f 36 MNEGL GBHSL_TRC_BLNK(R3), TRCSL_FCNK(RO) ; Fink to hdr from Last tre. 
50 20A 3 9 9 ROVAL GBHSL-TRC-FLNK(R3), RO =: Addr of f¢lnk from header. 
0 6 C 4 94 ADDL (RO), R 3; Get first trace block. 
04 AO 20 A cf 07 95 MNEGL GBHSL_TRC_FLNK(R3), TRCSL_BLNK(RO) ; Fix it's back Link. 
OOOOOSES'EF 1 443 38 JMP STORE_PTR ; Jump back to main Line. 


— | 


L 8 
AND COMMON CONNECT SEP=-1 


RMIC SEQUENTIA 4 panlves © o v04-00 Page 
V04= RMSCONNECT - SEQUENTIAL SPECIFIC CONNEC i oe tb 94 90:3 FRms. SRCIRM 1 CONN. MAR; 1 ° (id) 
4 99 ;: 
4 : 3; Routine yr By to store information in trace block from initial call 
4 ; to cache routine 
4 9 
4 
4 4 
03 ¢ ; “peur #*M<RO,RI> $ ist d 
" ; Save registers used. 
50 0088 CA 0D 6 309 10$: MOVL IF $L_GBH_PTR(R10), RO ; Get pointer to gbh, if any. 
1 Ons BEQL : Exit if none. 
a 3 D 909 BSBW REMQT 3; Get a trace block. 
, 94 319 BEQL EX2 ; Exit if none. 
50 OA AO 9 9 91 MOVAB TRCSW_FUNCTION(RO), RO ; Get addr of func t ion cell. 
0 01 B80 009 gig MOVW #GBH$ sf CACHE_IN, (RO)+ : Note this function 
; 9 OD 09 91 MOVL R9 )+ 3 structure 
5C 00000000'9F v0 009¢ 914 MOVL SaCTL GL PCB, AP : Get pcb addr. 
80 60 AC 8 AS 915 MOVW PCBSL_PIB(APS, (RO)+ : pid 
02 0 QOA7 218 BSBW CNT 3 seqnum 
80 04 AE DO OOAA 91 MOVL 4(SP), (RO)+ 3 vbn 
80 OC AE 00 OOAE 918 MOVL  12(SP5, (RO)+ ; return} 
80 20 ag DO 008 919 MOVL 32(SP), (RO)+ 3 return2 
0 53 00 9086 920 MOVL 3, (RO)+ : arg_fl 
80 D4 089 921 CLRL = (RO) + : bdb7addr 
80 C 00BB 9 § CLRQ (RO)+ 3 not use 
80 7C 00BbB 9 CLRQ (RO)+ : not used 
80 43 OOBF 924 CLRQ (RO)+ : not used 
51 50 00000040 8F c3 O00Ci 925 SUBL3 #TRCS$C_BLN, RO 3; Get addr of tre blk 
50 0088 CA p0 00C9 926 OVL  IFBS$L_GBH NBTRGRIOD ), RO ; Get addr of gbh 
OFF 0 OOCE 44 BSBW INSQH ; Insert blk a head of List. 
03 BA 00D1 928 Ex2: POPR #*M<RO,R1> ; Restore registers. 
05 00D3 369 RSB ; Return to cache 
0004 930 
0004 §=931 


; AP is destroyed. ALL other registers preserved. 
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yO4s000 RMSCONNECT1 = SEQUENTIAL=SPECIFIC CONNEC mit Teese FANS SRCIRM1 CONN MARS 1 . (98) 
D4 3; 
3 : 2 ; Store useful information from cache exit. 
D4 936° 
md 9 : RMSCACH_OUT:: 
03 an) 8 PUSHR #*M<RO,R1> 3; Save registers. 
50 0088 CA D D6 «939 18: MOVL 1EBSL_GBH_PTR(R10), RO ; Get GBH ptr, if any 
fe 1 ODE 940 BEQL EX ; Exit if none. 
O1E 3 D 941 BSBW REMQT 3 Remove a trc blk from tail. 
EF 1 9 348 BEQL 2 : Exit if none. 
50 OAA 9 Ee 94 MOVAB TRCSW_FUNCTION(RO), RO ; Ptr to func field. 
9 B BES Bee MOVW sGeHsn CACHE_OUT, (RO)+ ; function 
D E 45 MOVL Rg, (RO)+ 3: structure 
5c 00000000°9F D0 O0E 946 MOVL aa#CTL$GL_PCB, AP : Addr of PCB 
80 60 AC 80 OFS 94 MOVW PCBSL_PIB(APS, (RO)+  : pid 
°S bk OOFA 98 fre (RODS —". 
$ n 
80 gC AE 00 OOFC 950 MOVL Yecspy, (RO)+ : returnt 
80 24 AE DO 0100 951 MOVL  36(SP), (RO)+ : return 
80 6€ D0 0104 9¢ MOVL (SP), (RO)+ : arg_fl 
oe O18 984 Rove My tndns J vecamens 
EC AO 10 AG DO 010C 955 MOVL § BDBSL_VBN(R4), -20(R0) 
80 OC Ad BO 0111 936 MOVW  BDBSWIUSERS(R4), (RO)+ 
80 OF AS BO 0115 95 MOVW  BDBSWIBUFF ID(R4), (RO)+ 
80 OR AS 90 o119 958 MOVB BDB$BCACHE_VAL(R4), (RO)+ 
80 OA AG 90 0110 959 MOVB  BDBSBTFLGS(R4), (ROS+ 
80 20 a4 DO 0121 960 MOVL §§ BDBSLVBNSEQNO(R4), (RO)+ 
51. 10 Ad 00 1 3 361 MOVL BDBSL_BLB_PTR(R4), R1 
80 OB Al 90 O12B 308 MOVB $ BLBSB_MODEHELD(R1), (RO)+ 
80 80° al 90 91 F 364 wove BLBSBBLBFLGS(R1), (RO) + 
80 24 A1 00 oi 6 966 MOVL  BLBSL_LOCK_ID(R1), (RO)+ 
80 28 A1 00 oi A 967 = MOVL  BLBSLVALSEQNO(R15, (RO)+ 
1 50 song ee GS Bee 385 GUNS TTREESLEAMEnBfAnB), wo. ¢ SAE Ptr fo tre BLK to insert. 
0182 0 pi08 971 BSBW INSQH = ; : Insert at head of queue. 
FF80 1 14E 378 BRW 43 : Branch to exit. 
BS Fe Sa grt tom eens ahs 
Ts Say gre 1H gage ge 
50 B4 0159 399 208: CLRW = (RO) + 
80 04 0158 978 CLRL = (RO) + 
F6 2«©11 «#0150 ~=«—(979 BRB 15% 
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RMSCONNECT1 = SEQUENTIAL=SPECIFIC CONNEC 5-SEP-1984 16:23:11 CRMS.SRCJRM1CONN.MAR; 1 

15F 1 
13 3 § 3 
! : 3 7 : Store trace info for initial call to release. 
15F 6985 
15F 9 6 RMSRLS_IN:: 
07 BB O1SF 9 PUSHR #*M<RO,R1,R2> 
0088 CA 00 161 988 1$: MOVL JEBSL_GBH_PTR(RI0), RO 
63 «1 166 989 BNEQ % 
OOA 3 168 990 BRW Ex1 
015 0 0168 991 3$ BSBW REMQT 3; Get tre blk from end. 
93 12 1g 838 BNEQ 4$ ; Branch if got one. 
00 31 1 99 BRW Ex1 : Else exit. 
OA AO : 173 994 4$ MOVAB TRC$W_FUNCTION(RO), RO 
04 B0 0177 995 MOVW  #GBHSA_RLS_IN, (ROS+ =; function 
59 DO OI7A 4 MOVL + : structure 
00'S9F DO 017D 99 MOVL  aa#CTLS$GL_PCB, AP 
60 AC 80 oi 4 998 MOVW  PCBSL_PID(APS, (RO)+ =; pid 
0138 188 999 BSBW CNT ¢: seqnum 
0188 1000 
51 7C 0188 1001 CLRQ RY 
54 DS 018D 100¢ TSTL = RG 
04 12 O18F 100 BNEQ 5$ 
0191 1004 
80 D4 0191 1005 CLRL = (ROD + > VBN 
20 11 0193 1006 BRB 50$ 
0195 1007 5$: 
0 91 0195 1008 CMPB = #BLBSC_BID, BLBS$B_BID(R4) 
5 if 0199 1009 BNEQ 20$ 
4 D0 0198 1010 MOVL 4, R1 
07 11 O19E 1011 BRB o$ 
10 A400 01A0 1018 20$: MOVL  BDBS$L_BLB_PTR(R4), R1 
54 0 gM 101 MOVL R4, R2 
52 D3 1A7 1014 30$ TSTL Re : IS THERE BDB? 
06 13 O1A9 1015 BEQL 40$ 
C A2 DO O1AB 1016 MOVL § BDBSL_VBN(R2), (RO)+ 
04 11 OAF 101 BRB 50$ 
4 Al 00 1B1 1 18 40$: MOVL  BLBSL_VBN(R1), (RO)+ 
0 AE 00 0185 1019 50$:  MOVL 16(SPT, (RO)+ : RETURNI 
0 AE DO 0189 1020 MOVL 32(SP). (RO)+ : RETURN2 
80 53 DO 01BD 1021 MOVL R3, (RO)+ : FLAGS 
80 52 o9 gic 19 : MOVL 2, (RO)+ : BDB ADDR 
16 13 «#01C3 «1 BEQL 60$ 
0c A2 BO OIC 19 4 MOVW  BDBSW_USERS(R2), (RO)+ 
OE A : 169 1025 MOVW BDBSWTBUFF_ID(R2), (RO)+ 
0B A 1CD 1026 MOVB BDBSB~CACHE VAL (R2) (RO) + 
OA A2 90 0101 1027 MOVB  BDBSB-FLGS(R2), (ROS+ 
0A2 DO 0105 1 8 MOVL BDBSL_VENSEGNO(R2), (RO) + 
06 11 #0109 1 ‘BRB 0$ 
1DB 1030 60$: 
0 7C 01DB 1031 CLRQ = (RO) + 
0 B4 O1DD 1 ; CLRW = (ROD + 
1 DS 1DF 19 70$:  TSTL Ri : IS THERE BLB? 
15 13 O181 1034 BEQL 80% 
08 Al 9 163 1035 MOVE § BLBSB_MODEHELD(R1), (RO)+ 
AAl 90 O87 1 6 MOVB BLBS$B BLBFLGS(RI), (RO) + 
51 00 O1EB 1 MOVL 1, (RO)+ 
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yO4s000 RASCONNECTA = SEQUENTIAL=SPECIFIC CONNEC eset 1 90:38: 4] FMS SRCIRMT CONN-MAR: 1 ° (9?) 
80 34 Al 00 OEE 1 38 MOVL BLBSL_LOCK_ID(R1), (RO)+ 
BAI DO O1F2 1 MOVL BLBSL_VALSEQNO(R1S, (RO)+ 
06 1 1F6 1040 BRB 
1F8 1041 80$ 
B4 O1FB 104 CLRW (RO)+ 
D4 1FA 104 CLRL (RO)+ 
C OFC 1044 CLR (RO)+ 
1FE 1045 90S: 
51 50 00000040 8F C3 OIFE 1046 SUBL3. #TRCS$C_BLN, RO, R1 
50 0088 CA p0 06 104 MOVL  IFBS$L_GBH_PTR(R10), RO 
00C 0 0208 Hb 4 BSBW INSQH ; Insert element at head of queue. 
07 ~=~BA 0 OF 1049 EX1 POPR #*M<RO,R1,R2> 
05 10 1050 RSB 


Ne eee — —y 
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RMIC SEQUENTIAL AND COMMON CONNECT 1g-SEP-1984 00:44:47 VAX/ Vis Macro 
V04= RMSCONNECT1 = SEQUENTIAL=SPECIFIC CONNEC 5-SEP-1984 16:23:11 ([CRMS.SRCJRM1CONN.MAR; 1 
11 105 
$i} 1 38 3 | 
i ! 2¢ : Store trace info at exit of release routine. 
1°41 36 ‘ | 
11 1057 RMSRLS_OUT:: 
07 BB 0213 1058 PUSHR #*M<RO,R1,R2> 
50 0088 CA 09 13 1059 1$: MOVL JEBSL_GBH_PTR(RIO), RO 
03 (1 1 1060 BNEQ $ 
FFF 3! 1A 1061 BRW Ex1 
OOA6 1D 1906 3$ BSBW REMQT ; Get tre blk from end of queue. 
. a 196 BNEQ 4$ ; Br if got one 
FFE9 3 1064 BRw —x1 ; Else quit. 
50 OAAO SE O 1065 4$ MOVAB TRC$W_FUNCTION(RO), RO 
80 08 B60 6 9 1066 MOVW  #GBHSA_RLS_OUT, (RO)+ ; function 
80 59 00 C 1067 MOVL RO, (RO)+ : structure 
SC 00000000'9F DO O2eF 1068 MOVL a#CTL$GL_PCB, AP 
80 60 AC 80 0236 1069 MOVW  PCBSL_PIB(APS, (RO)+ =; pid 
086 0 Osh ee BSBW CNT 3 seqnum 
51 7 0230 107¢ CLRQ 1 
54 DS O23F 107 TSTL = RG 
04 12 0241 1074 BNEQ 5$ 
0243 1075 
80 D4 0243 1076 CLRL (RO)+ ' 3; VBN 
20 11 0245 1077 BRB 50$ 
0247 1078 S$: 
08 AS «61002091: 0247 «1079 CMPB =: #BLBS$C_BID, BLBSB_BID(R4) 
05 12 0348 1080 BNEQ 20$ 
51 54 DO 024d 1081 MOVL 4, R1 
07 +11 0250 108@ BRB 
51 10 A4 DO 0252 1083 20S: MOVL BDBSL_BLB_PTR(R4), R1 
52 54 DO 0256 1084 MOVL 4, R2 
52 «DS «60259 «+1085 308: TSTL = R2 : IS THERE BDB? 
06 13 0258 1086 BEQL 40% 
80 1C A2 00 025d 1087 MOVL BDBSL_VBN(R2), (RO)+ 
04 11 0261 1088 BRB 50$ 
80 14 A1 DO 0263 1089 40$ MOVL  BLBS$L_VBN(R1), (RO)+ 
80 10 AE DO 0267 1090 50S MOVL  16(SPT, (RO)+ : RETURN 
80 20 AE DO 0268 1091 MOVL 32(SP), (RO)+ + RETURN2 
80 6— 00 O26F 109¢ MOVL (SP), (RO)+ + STATUS 
80 52 b9 0 2 109 MOVL Re (RO) + : BDB ADDR 
1601 75 1094 BEQL 60$ 
80 gc A 80 77 1095 MOVW § BDBSW_USERS(R2), (RO)+ 
80 OF Ae B 7B 1096 MOVW  BDBSW BUFF _ID(R2), (RO)+ | 
80 OB A2 90 O27F 1097 MOVB BDB$B~CACHE AL (RQ) (RO)+ | 
80 OAA2 90 83 1098 MOVB BDBSB-FLGS(R2), (ROS+ 
80 20 A2 D0 0287 1099 MOVL DBSL-VBNSEQNO(R2), (RO)+ | 
06 «11 1100 BRB 0$ 
D 1101 60$: 
80 7C D 11 é CLRQ (RO) + | 
80 B4 af 11 CLRW = (RO) + 
1 D5 1 1104 70S: TSTL = RV : IS THERE BLB? 
15 13 33 1105 BEQL 808 
80 Al 90 029 1106 MOVB BLBSB_MODEHELD(R1), (RO)+ | 
0 OAAl 90 0299 110 MOVB BLB$B BLBFLGS(R1), (RO)+ 
80 51 00 9D 1108 MOVL R1, (RO)+ | 
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; Insert at head of queue. 
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Routine to remove an element from the end of a self relative queue. 
The forward and back Links in the removed element remain intact. 


Input: RO = GBH header 
Output: RO = tre blk elenent to use. 
R1 destroyed. 


A 
C 

C6 11 

te 11 § 

C6 11 ? 

C6 11 

C6 11 § 

ce 11 

C6 1134 

cmt: 

C6 11 $ EMQT: 

20 AO if ce 1138 TSTL GBHSL_TRC_FLNK(RO) ; Make sure trace oot exits. 
06 «#1 C9 1139 BEQ : EQL there aren't an 
20 AO SF CB 1140 REMQTI GBHS$L_TRC_FLNK(RO),RO ; Remove a tre block tom end of queue. 
05 O2cF 1141 10$: RSB ; Return. 
Bh He 
02D0 1144 ; Routine to insert the trc blk previously removed from the tail of the queue 
0200 1145 ; onto the head of the queue. 
02D0 1138 3 
0500 1148 2 RO GBH p 
; Py > 
3 -e canak! to insert. 
0200 1149 ; R1 L i 
8508 1150 ; 
a8 8 
NSQH -GBHSL_TRC_FLNK(RO) ; Insert onto front of queue. 
61 SC $509 1183 INSQHI (R1) $L_T (RO f 
05 asee V3 RSB ; And return. 

$58 1156 $SPSECT_RESTORE 
O43F 1157 - END 
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Symbol table -SEP-1984 16:23:11 RMS .SRCJRM1CONN.MAR; 1 (20) 
IRBSB_BCNT = 4 RMSS$_MBC = 18734 
IRBSB MBC = 33 RMSS_RFM = 00018664 
1RBSB_MBF = f ROP 2 0 
IRBSL_NRP_VBN = 4 SECSM_DZRO = 4 
IRBSL_NXTBDB a ¢ SECSM_EXPREG a 0 
IRBSV_EOF = | SECSM_GBL = 1 
IRB$V—GBLBUF F = 6 SECSM~PAGF IL s 
BSV_RAHWBH 2 A SECSM_SYSGBL = 3 

IRBSW-NRP_OFF = 9 0 44 SECSM-WRT = 0 0 
MAP_IT 0 69 R 4 SEC_ERR 00042A R 4 
NTSCONNECT eteeeeee § 6X 1 SEC_ERR1 0000423 R 1 
NUMTRC 4444 R 03 SETAXT 38 ret) R 01 
PCBSL_PID = 6 SS$_CREATED = 
P10$GB_DF MBC eeeeeeee =X = 0] STORE_PTR QO00003SE8 R 01 
PIOSGB_DF MBF SDK gtenrtene x 01 SYSSCRMPSC aeneeeeer GX 01 
PRVSV_SYSGBL = 00000019 SYSSF eeeneeee 01 
PSL$C"EXEC = 00000001 SYS$GB_DFM teeeeees 01 
RABSB_MBC = 00000037 SYS$GB_D eeerenee 01 

$8 _MBF = 44h 4: SYSSSETPRV eeneeene 01 
RABSB_ROP1 = 94444 TRC$B_BID = 00000008 
RABSL_FAB = 0000003C TRCS$B_BLN = 00000009 
RABSL_ROP = 00000004 TRCSC_BID = 4494 94 
RABSL_STV = sit 4 4 $5 TRCSC_BLN = 0000004 
RABSM_RAH = 00000200 TRCSL_BLNK = 00000004 
RABSM_WBH = 00000400 TRCSL_FLNK = 00000000 
RABSV_B1O = 000000 TRCSW_FUNCTION = Q000000A 
RABSV_EOF = 0000000 UNIT QO00000A6 R 01 
REMQT 000002C6 R 03 WCBSL_FCB = 00000018 
RMSALBLB eeeneeee 01 
RMSALDBUF teeerene x 01 
RMSAL GBPB reerenee x Q1 
RMSBDBALLOC 00000111 RG 01 
RMSBDBALLOC_ALT Q000015E RG 01 
RMSCACH_IN 00000084 RG 03 
RMSCACH OUT 000000D4 RG 03 
RMSCCLNT teereree 8 =X 4 
RMSCOMCLNUP eeeeeeee = §=6X 1 
RMSCONNECT1 00000009 RG 01 
RMSCONN_ERRRFM 00000031 RG 01 
RMSEXSUT eeeerere =X 01 
RMSEX_NOSTR eeentene x 1 
RMSGETCCB eeeeeenre =X = 1 
RMSINIT_GBSB tereeere X01 
RMSINIT SFSB_IRB ereerine x 1 

OWER_GBS"LOCK eeeeeeee 8 6X 1 
RMSLOWER- SYSCOCK eeeeeeee =X 0] 
RMSRE TBDB eeneeeee =X 01 
RMSRETBLB reekeere x 4 
RMSRE TGBPB eereeeee x 1 
RMSRLS_GBSB eereeeee =X 8 01 
RMSRLS_IN 4 RG 3 
RABUN PGBL_ALT pecceres ROT 
RMS$_CRMP ~ = 0001C14C 
RMS$_DEV = 00018464 
RMS$_DME = 00018404 
RMS$~GBC = 000187CC 


H 
RM1 CONN SEQUENTIAL AND COMMON CONNECT 197 3EE- 138% 90: 
SEP=1984 16: 
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RMS.SRCJRM1CONN.MAR; 1 


teaver e ere ee wo ecce + 


Psect synopsis ! 


' 
+ concen meer acees 


PSECT name Allocation PSECT No. Attributes 


| 
| 
| 
- ABS. $0000 0 ¢ 9.) 00 ¢( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE | 
RMSRMS1 O00063F ( 1087.) Gi ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE | 
SABSS 44 4h ( 9.) 8 ( ¢°} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE | 
RMSTRACE 000002D5 ( 725.) 035 ¢ 53.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
bower mono mew ecm anon emme we $ 
! Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization $$ 00:00:00.08 00:00:00.40 
Command processing 1 00:00: 2-98 B38 : 3°39 
Pass 1 608 00:00: ¢- 0:01:09. 
Symbol table sort 2 00:00:03.90 00:00:04.89 
Pass 21 00:00:05.36 00:00:13.14 
Symbol table output 3 bs Ba FT 00:00:00.74 
Psect synopsis output 00:00:00.0 00:00:00.02 
Cross-reference output bs Se 00:00:00.00 
Assembler run totals 1036 0:00:36.60 00:01:32.94 


The working set Limit was 1950 pages. 

145709 bytes (285 pages) of virtual memory were used to buffer the intermediate code. 

There were 140 pages of symbol table space allocated to hold 2617 non-local and 71 local symbols. 
1157 source Lines were read in Pass 1, orodys the 20 object records in Pass 2. 

45 pages of virtual memory were used to define 43 macros. 


Macro Libsary name Macros defined 


_$255$DUA28: (RMS. 42RMS MLB: 1 19 
Biittean 8:CSYS.OBJJLIB.MLB;1 4 
$255$DUA28: (SYSLIBJSTARLET.MLB; 2 16 
TOTALS (all Libraries) 39 


2809 GETS were required to define 39 macros. 


MACRO/LIS=L1S$:RM1CONN/OBJ=0BJ$:RM1CONN MSRC$:RM1CONN/UPDATE=(ENHS:RM1CONN) *EXECMLS/LIB+LIB$:RMS/LIB 


There were no errors, warnings or information messages. 
° 
| 
| 
i 
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